home *** CD-ROM | disk | FTP | other *** search
/ PC-X 1997 October / pcx14_9710.iso / swag / cursor.swg / 0027_Better Cursor Unit.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-11-22  |  346 b   |  27 lines
  1.  
  2. unit Cursor;
  3.  
  4. interface
  5.  
  6. const
  7.   ThinCursor = $0707;
  8.   OvrCursor  = $0307;
  9.   InsCursor  = $0607;
  10.   BarCursor  = $000D;
  11.   HideCursor = $2607;
  12.   ShowCursor = $0506;
  13.  
  14. procedure SetCursor(Ctype: Word);
  15.  
  16. implementation
  17.  
  18. procedure SetCursor(Ctype: Word); assembler;
  19. asm
  20.   mov ax, $0100
  21.   mov cx, CType
  22.   int $10
  23. end;
  24.  
  25. end.
  26.  
  27.